home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / unload1a / f2.frm < prev    next >
Text File  |  1999-10-21  |  719b  |  31 lines
  1. VERSION 5.00
  2. Begin VB.Form f2 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   90
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   90
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   90
  12.    ScaleWidth      =   90
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15. End
  16. Attribute VB_Name = "f2"
  17. Attribute VB_GlobalNameSpace = False
  18. Attribute VB_Creatable = False
  19. Attribute VB_PredeclaredId = True
  20. Attribute VB_Exposed = False
  21. Private Sub Form_Unload(Cancel As Integer)
  22. X = 1000
  23. Y = 1000
  24. Do Until X <= 0
  25. X = X - 1
  26. Y = Y - 1
  27. f2.Height = Y
  28. f2.Width = X
  29. Loop
  30. End Sub
  31.